10 POKE53280,6:POKE53281,6:DIMTB$(150):PRINT"[147]"CHR$(14):DI=8:C=1
20 OPEN8,DI,8,":   DIRECTORY   ":OPEN15,DI,15:INPUT#15,EN$,ED$,ET$,ES$
30 INPUT#8,DN$:IFEN$<>"00"THENCLOSE8:CLOSE15:GOTO310
40 INPUT#8,TB$(C):IFST=66THEN70
50 IFASC(LEFT$(TB$(C),1))=10THENTB$(C)=RIGHT$(TB$(C),LEN(TB$(C))-1):GOTO50
60 C=C+1:GOTO40
70 CLOSE8:CLOSE15:M=C-1:TB$(C)="":L1$="":FORC=1TO40:L1$=L1$+" ":NEXT
80 L1$=L1$+"[146]":A=1
90 POKE53281,1:PRINT"[147]";:FORC=1TO4:PRINTL1$;:NEXT:FORC=1TO2:PRINT""L1$;
95 NEXT:PRINT"";
100 PRINTSPC(7)"[196]IRECTORY [193]SSISTANCE V64"SPC(11)"                         ";
105 PRINT"         "SPC(12)"  (C) [201]ON [201]NT'L [201]NC. "SPC(59)""DN$SPC(8)L1$;
120 FORC=ATOA+14:PRINT""RIGHT$("    "+STR$(C),5)"[146] "TB$(C)SPC(29-LEN(TB$(C)));
130 PRINT"     ";:NEXT:PRINTL1$;
135 FORA=1TO2:PRINT""L1$;:NEXT:PRINTLEFT$(L1$,40)"[145]"
140 PRINTSPC(9)"[145][145][198]1 = CONTINUE LISTING"SPC(19)"[198]3 = CREATE DIRECTORY";
150 PRINTSPC(19)"[198]5 = EXIT PROGRAM":POKE2023,160:POKE56295,6:POKE198,0:B$=""
160 GETA$:IFA$=""THEN160
170 IFASC(A$)=13THEN260
180 IFA$="[133]"THEN240:REM" F1 ******
190 [139]A$[178]"DIM"[167]300:[143]" F3 ******
200 IFA$="[135]"THENPOKE53280,3:PRINT"[147]RUN":END:REM" F5 ******
210 [139][198](A$)[178]20[167]B$[178]"":[153]"   WAIT":B$[178]"":[137]160
220 [139]A$[179]"0"[176]A$[177]"9"[176][195](B$)[178]3[167]160
230 B$[178]B$[170]A$:[153]""B$:[137]160
240 [139]C[177]M[167]A[178]1:[137]90
250 A[178]C:[137]90
260 [139][197](B$)[177]M[167][153]"???":[129]C[178]1[164]1500:[130]:A$[178][199](20):[137]210
270 [151]53281,6:[151]53280,14:[153]"WAITLOADLOAD"[199](34)TB$([197](B$))[199](34)",8,1"
280 [143]   PRINTRIGHT$(STR$(DI),LEN(STR$(DI))-1)
290 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
300 [153]"WAIT"
310 [159]8,DI,0,"$0":[129]C[178]1[164]8:[161]#8,A$:[130]:C[178]1:DN$[178]"":[129]C[178]1[164]16
320 [161]#8,A$:DN$[178]DN$[170]A$:[130]:[161]#8,A$:[161]#8,A$:DN$[178]DN$[170]"  ":[161]#8,A$
330 DN$[178]DN$[170]A$:[161]#8,A$:DN$[178]DN$[170]A$:[161]#8,A$:[161]#8,A$:DN$[178]DN$[170]"  "[170]A$
340 [161]#8,A$:DN$[178]DN$[170]A$:[161]#8,A$:C[178]1
350 [129]A[178]1[164]4:[161]#8,A$:[130]:PN$[178]"":TY$[178]""
360 [161]#8,A$:[139]ST[179][177]0[167]450
370 [139]A$[178]""[167]450
380 [139][198](A$)[179][177]34[167]360
390 [161]#8,A$:[139][198](A$)[179][177]34[167]PN$[178]PN$[170]A$:[137]390
400 [161]#8,A$:[139][198](A$)[178]32[167]400
410 TY$[178]TY$[170]A$:[161]#8,A$:[139]A$[179][177]""[167]410
420 [139][200](TY$,3)[179][177]"PRG"[167]350
430 [139][200](PN$,1)[178]" "[167]350
440 TB$(C)[178]PN$:C[178]C[170]1:[139]ST[178]0[167]350
450 [160]8:[159]15,DI,15,"S:   DIRECTORY   ":[160]15
460 Z$[178]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[159]8,DI,8,":   DIRECTORY   ,S,W":[152]8,DN$
470 [129]A[178]1[164]C[171]1:C$[178]Z$:[129]B[178]1[164]C[171]1:[139]C$[179]TB$(B)[167]490
480 C$[178]TB$(B):D[178]B
490 [130]:[152]8,C$:TB$(D)[178]Z$:[130]:[160]8:[156]:[137]10